home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / progtool / modula2 / module / blrscinc.def < prev    next >
Text File  |  1995-11-25  |  7KB  |  142 lines
  1. (******************************************************************************)
  2. (*      This MODULE is Public Domain. Copy me like a beast!                   *)
  3. (*               Christian Ledermann                                          *)
  4. (*               Wölfelkofen 2                                                *)
  5. (*               84166 Adlkofen                                               *)
  6. (******************************************************************************)
  7. (*                                                                            *)
  8. (* Started:   20.12.92     03:54:30                                           *)
  9. (* Version: 20.12.89   00:214:12:54                                           *)
  10. (*                                                                            *)
  11. (******************************************************************************)
  12. (*                                                                            *)
  13. (* Diese Software ist ohne jede Garantie. Ich verspreche                      *)
  14. (* keinerlei Wartung und übernehme keine Verantwortung für Schäden die        *)
  15. (* durch die Benutzung dieses Programmes entstehen.                           *)
  16. (* Jegliche Ersatzansprüche lehne ich ab.                                     *)
  17. (*                                                                            *)
  18. (******************************************************************************)
  19. DEFINITION MODULE BlRscInc;
  20. VAR SaveFileName :ARRAY [0..255] OF CHAR;
  21.     GeAendert,Gedruckt :BOOLEAN;
  22. CONST (* Vom RCS erzeugte Includedatei für Pascal *)
  23.       MENUE = 0;      (* TREE *)
  24.       DATEDIA = 1;      (* TREE *)
  25.       VKPDIA = 2;      (* TREE *)
  26.       EKPDIA = 3;      (* TREE *)
  27.       EINGABE = 4;      (* TREE *)
  28.       DESK = 3;      (* OBJECT in TREE #0 *)
  29.       DATEI = 4;      (* OBJECT in TREE #0 *)
  30.       KASSE = 5;      (* OBJECT in TREE #0 *)
  31.       OPTIONEN = 6;      (* OBJECT in TREE #0 *)
  32.       EXTRAS = 7;      (* OBJECT in TREE #0 *)
  33.       ABOUT = 10;      (* OBJECT in TREE #0 *)
  34.       LOAD = 20;      (* OBJECT in TREE #0 *)
  35.       SAVE = 21;      (* OBJECT in TREE #0 *)
  36.       EDIT = 24;      (* OBJECT in TREE #0 *)
  37.       PRINT = 23;      (* OBJECT in TREE #0 *)
  38.       QUIT = 19;      (* OBJECT in TREE #0 *)
  39.       BESTELL = 27;      (* OBJECT in TREE #0 *)
  40.       FAXRECHN = 30;      (* OBJECT in TREE #0 *)
  41.       KASSESTD = 28;      (* OBJECT in TREE #0 *)
  42.       SPENDEN = 31;      (* OBJECT in TREE #0 *)
  43.       RECHNUNG = 34;      (* OBJECT in TREE #0 *)
  44.       BIEREN = 35;      (* OBJECT in TREE #0 *)
  45.       NAMEN = 36;      (* OBJECT in TREE #0 *)
  46.       DATUMAE = 38;      (* OBJECT in TREE #0 *)
  47.       HELP = 47;      (* OBJECT in TREE #0 *)
  48.       EKPREISE = 41;      (* OBJECT in TREE #0 *)
  49.       VKPREISE = 45;      (* OBJECT in TREE #0 *)
  50.       INVENTUR = 43;      (* OBJECT in TREE #0 *)
  51.       STATISTK = 44;      (* OBJECT in TREE #0 *)
  52.       DATUM = 2;      (* OBJECT in TREE #1 *)
  53.       CANCDAT = 3;      (* OBJECT in TREE #1 *)
  54.       OKDATUM = 4;      (* OBJECT in TREE #1 *)
  55.       VKBIER = 2;      (* OBJECT in TREE #2 *)
  56.       VKLIMO = 3;      (* OBJECT in TREE #2 *)
  57.       CANCELVK = 4;      (* OBJECT in TREE #2 *)
  58.       OKVK = 5;      (* OBJECT in TREE #2 *)
  59.       EKB1 = 5;      (* OBJECT in TREE #3 *)
  60.       EKB2 = 6;      (* OBJECT in TREE #3 *)
  61.       EKB3 = 7;      (* OBJECT in TREE #3 *)
  62.       EKB4 = 8;      (* OBJECT in TREE #3 *)
  63.       EKB5 = 9;      (* OBJECT in TREE #3 *)
  64.       EKB6 = 10;      (* OBJECT in TREE #3 *)
  65.       EKB7 = 11;      (* OBJECT in TREE #3 *)
  66.       EKL1 = 16;      (* OBJECT in TREE #3 *)
  67.       EKL2 = 17;      (* OBJECT in TREE #3 *)
  68.       EKL3 = 18;      (* OBJECT in TREE #3 *)
  69.       EKL4 = 19;      (* OBJECT in TREE #3 *)
  70.       EKL5 = 20;      (* OBJECT in TREE #3 *)
  71.       EKL6 = 21;      (* OBJECT in TREE #3 *)
  72.       EKL7 = 22;      (* OBJECT in TREE #3 *)
  73.       CANCELEK = 23;      (* OBJECT in TREE #3 *)
  74.       OKEK = 24;      (* OBJECT in TREE #3 *)
  75.       NAME = 3;      (* OBJECT in TREE #4 *)
  76.       UEBERTRG = 4;      (* OBJECT in TREE #4 *)
  77.       BSTRICH = 5;      (* OBJECT in TREE #4 *)
  78.       LSTRICH = 6;      (* OBJECT in TREE #4 *)
  79.       PREVIOUS = 7;      (* OBJECT in TREE #4 *)
  80.       NEXT = 8;      (* OBJECT in TREE #4 *)
  81.       CANCLABR = 9;      (* OBJECT in TREE #4 *)
  82.       OKABR = 10;      (* OBJECT in TREE #4 *)
  83.       BESTLDIA = 5;      (* TREE *)
  84.       BB1 = 5;      (* OBJECT in TREE #5 *)
  85.       BB2 = 7;      (* OBJECT in TREE #5 *)
  86.       BB3 = 9;      (* OBJECT in TREE #5 *)
  87.       BB4 = 11;      (* OBJECT in TREE #5 *)
  88.       BB5 = 13;      (* OBJECT in TREE #5 *)
  89.       BB6 = 15;      (* OBJECT in TREE #5 *)
  90.       BB7 = 17;      (* OBJECT in TREE #5 *)
  91.       LB1 = 22;      (* OBJECT in TREE #5 *)
  92.       LB2 = 24;      (* OBJECT in TREE #5 *)
  93.       LB3 = 26;      (* OBJECT in TREE #5 *)
  94.       LB4 = 28;      (* OBJECT in TREE #5 *)
  95.       LB5 = 30;      (* OBJECT in TREE #5 *)
  96.       LB6 = 32;      (* OBJECT in TREE #5 *)
  97.       LB7 = 34;      (* OBJECT in TREE #5 *)
  98.       BK1 = 6;      (* OBJECT in TREE #5 *)
  99.       BK2 = 8;      (* OBJECT in TREE #5 *)
  100.       BK3 = 10;      (* OBJECT in TREE #5 *)
  101.       BK4 = 12;      (* OBJECT in TREE #5 *)
  102.       BK5 = 14;      (* OBJECT in TREE #5 *)
  103.       BK6 = 16;      (* OBJECT in TREE #5 *)
  104.       BK7 = 18;      (* OBJECT in TREE #5 *)
  105.       LK1 = 23;      (* OBJECT in TREE #5 *)
  106.       LK2 = 25;      (* OBJECT in TREE #5 *)
  107.       LK3 = 27;      (* OBJECT in TREE #5 *)
  108.       LK4 = 29;      (* OBJECT in TREE #5 *)
  109.       LK5 = 31;      (* OBJECT in TREE #5 *)
  110.       LK6 = 33;      (* OBJECT in TREE #5 *)
  111.       LK7 = 35;      (* OBJECT in TREE #5 *)
  112.       CNCLBEST = 37;      (* OBJECT in TREE #5 *)
  113.       OKBESTLG = 38;      (* OBJECT in TREE #5 *)
  114.       SCHULDEN = 36;      (* OBJECT in TREE #5 *)
  115.       INVENDIA = 6;      (* TREE *)
  116.       BSDTITEL = 1;      (* OBJECT in TREE #5 *)
  117.       BIERE = 4;      (* OBJECT in TREE #6 *)
  118.       LIMOS = 5;      (* OBJECT in TREE #6 *)
  119.       KASSETEO = 7;      (* OBJECT in TREE #6 *)
  120.       KASSEPRK = 8;      (* OBJECT in TREE #6 *)
  121.       SBEIFAX = 9;      (* OBJECT in TREE #6 *)
  122.       AUSSENST = 10;      (* OBJECT in TREE #6 *)
  123.       CNCLINVT = 11;      (* OBJECT in TREE #6 *)
  124.       OKINVNT = 12;      (* OBJECT in TREE #6 *)
  125.       SPENDDIA = 7;      (* TREE *)
  126.       OKSPENDE = 4;      (* OBJECT in TREE #7 *)
  127.       CNCLSPND = 3;      (* OBJECT in TREE #7 *)
  128.       SPNDBTRG = 2;      (* OBJECT in TREE #7 *)
  129.       ABOUTDIA = 8;      (* TREE *)
  130.       OKABOUT = 8;      (* OBJECT in TREE #8 *)
  131.       ZIRKEL = 12;      (* OBJECT in TREE #8 *)
  132.       LOESCHEN = 11;      (* OBJECT in TREE #4 *)
  133.       LEERZEIL = 39;      (* OBJECT in TREE #0 *)
  134.       LEERDIA = 9;      (* TREE *)
  135.       OKLEER = 5;      (* OBJECT in TREE #9 *)
  136.       CANCLEER = 6;      (* OBJECT in TREE #9 *)
  137.       ZAHLLEER = 1;      (* OBJECT in TREE #9 *)
  138.       SAVEWORK = 49;      (* OBJECT in TREE #0 *)
  139. ə
  140.  
  141. END BlRscInc.
  142.